5 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
6 POKE53280,14:POKE53281,6
10 SA=49152:REM STARTING ADDRESS
20 GOSUB63000:CLR
30 SA=PEEK(253)*256+PEEK(254):CO=SA+3:CF=SA+6:REM DEFINE JUMP TABLE ADDRESSES
40 DIM SP(8):REM DEFAULT SPEEDS
50 RESTORE
60 FOR A=0 TO 8:READ SP(A):NEXT
70 DATA 0,2,3,5,9,255,3,3,3
80 CN=1:CC=16:S=SP(CN)
90 SYS SA,CN,CC,S
100 PRINT"[155][147]";
110 PRINT" USE:"
120 PRINT"   F1/2 - TO CHANGE NUMBER"
130 PRINT"   F3/4 - TO CHANGE COLOR"
140 PRINT"   F5/6 - TO CHANGE SPEED"
150 PRINT"   F7 - TO VIEW HELP"
160 PRINT"   F8 - TO QUIT"
170 PRINT"  YOU MAY TYPE ANY KEYS YOU WISH: ";
180 GOSUB490
190 SYS CO,2:GETG$:G=ASC(G$)
200 IF G<133 OR G>141 THEN460
210 IF G$<>"[133]" THEN230
220 CN=CN+1:GOTO250
230 IF G$<>"[137]" THEN280
240 CN=CN-1
250 IF CN>8 THEN CN=CN-9:GOTO250
260 IF CN<0 THEN CN=CN+9:GOTO260
270 S=SP(CN):GOTO420
280 IF G$<>"[134]" THEN300
290 CC=CC+1:GOTO320
300 IF G$<>"[138]" THEN350
310 CC=CC-1
320 IF CC>16 THEN CC=CC-17:GOTO320
330 IF CC<0 THEN CC=CC+17:GOTO330
340 GOTO420
350 IF G$="[135]" THEN S=S+1:GOTO400
360 IF G$="[139]" THEN S=S-1:GOTO410
370 IF G$="[136]" THEN100
380 IF G$="[140]" THEN END
390 :
400 IF S>255 THEN S=S-256:GOTO400
410 IF S<0 THEN S=S+256:GOTO410
420 IF CN=0 THEN SYS SA,CN:GOTO440
430 SYS SA,CN,CC,S
440 GOSUB490
450 GOTO190
460 PRINTG$;
470 GOTO190
480 STOP
490 REM PRINT CURSORING INFO
500 SYS CF
510 POKE783,1:SYS65520:SC=PEEK(646):REM SAVE CURRENT CURSOR POSITION AND COLOR
520 PRINT"[155]"TAB(27)"CURSOR INFO-"
530 PRINT TAB(28)"NUMBER: ";
540 PRINT RIGHT$(STR$(CN),1)
550 PRINT TAB(29)"COLOR: ";
560 PRINT RIGHT$("0"+MID$(STR$(CC),2),2)
570 PRINT TAB(29)"SPEED: ";
580 PRINT RIGHT$("00"+MID$(STR$(S),2),3)
590 POKE783,0:SYS65520:POKE646,SC:REM RESTORE CURSOR POSITION AND COLOR
600 RETURN
610 :
63000 A=PEEK(61)+PEEK(62)*256:POKE66,INT(A/256):POKE65,A-PEEK(66)*256
63010 REM NEXT LINE DOES A SELECTIVE RESTORE
63020 PRINT"[147]  PLEASE WAIT 5 SECONDS...READING DATA"
63030 NB=355
63040 IF SA<>0 THEN63070
63050 E=PEEK(55)+PEEK(56)*256
63060 B=E-NB:GOTO63080
63070 B=SA:E=B+NB
63080 FORA=BTOE-1:READD%:IFD%>=0THEN63100
63090 L=D%+E:D%=L/256:D1%=L-D%*256:POKEA,D1%:A=A+1
63100 POKEA,D%:NEXT
63110 A=B+127:POKE B+12,A/256:POKE B+31,A-INT(A/256)*256
63120 PRINT"  COMPLETED"
63130 IF SA<>0 THEN63150
63140 POKE 55,B-INT(B/256)*256:POKE 56,B/256
63150 POKE 253,B/256:POKE 254,B-PEEK(253)*256
63160 RETURN
63170 :
63180 DATA  76,-344,76,-150,76,-132,49,234,160,192,204,21,3,240
63190 DATA  26,174,20,3,142,-346,174,21,3,142,-345,162,127,56,120
63200 DATA  142,20,3,140,21,3,88,176,1,96,32,-243,224,1,176,8
63210 DATA  174,-346,172,-345,144,230,224,9,144,5,162,14,76,55,164
63220 DATA  202,138,10,168,185,-111,141,-189,185,-110,141,-188
63230 DATA  189,-95,141,-216,169,0,141,-192,32,-243,224,17,176
63240 DATA  217,142,-165,32,-243,142,-216,96,32,121,0,208,3,104
63250 DATA  104,96,32,155,183,96,76,97,234,32,234,255,165,204,208,246,198
63260 DATA  205,208,242,169,2,133,205,164,211,165,207,208,14,177,209,230,207
63270 DATA  133,206,32,36,234,177,243,141,135,2,162,0,232,189,-87,208
63280 DATA  4,162,0,240,247,142,-192,201,32,208,8,174,135,2,165,206
63290 DATA  76,94,234,162,16,224,16,144,3,174,134,2,201,160,208,240,76
63300 DATA  90,234,169,0,133,204,32,-243,138,240,7,165,198,240,252,202
63310 DATA  208,1,96,169,1,133,204,165,207,240,012,165,206,174,135,2,160
63320 DATA  0,132,207,32,19,234,96,-87,-54,-45,-36,-33
63330 DATA  -31,-22,-5,2,3,5,9,255,3,3,3,99,119,120
63340 DATA  226,249,239,228,160,227,247,248,98,121,111,100,32,100,111,121,98
63350 DATA  248,247,227,160,228,239,249,226,120,119,99,32,0,124,225,108,98
63360 DATA  123,97,126,226,0,110,93,112,64,109,93,125,64,0,100,32,0
63370 DATA  160,0,226,95,225,233,98,223,97,105,0,99,69,68,64,70,82
63380 DATA  100,32,100,82,70,67,68,69,99,32,0,64,77,93,78,0